0 PRINT"[147]JOYSTICK PORT II":FORX=1TO1000:NEXTX
1 PRINT"[147]":U=200:P=0
2 FORX=0TO39
3 AN=1024:H=10:V=10:J=56321
4 POKEAN+X,102
5 NEXTX
6 FORY=1TO23
7 POKEAN+40*Y,102
8 NEXTY
9 FORX=0TO39
10 POKE1984+X,102
15 NEXTX
16 FORT=0TO23
17 POKE1063+T*40,66
18 NEXTT
30 POKEAN+V*40+H,42
40 FORX=1TOU:NEXTX
50 POKEAN+V*40+H,81
60 FORX=1TOU:NEXTX
70 IF PEEK(J)=254THEN V1=-1:H1=0:U=U-10:GOTO120
80 IF PEEK(J)=253THEN V1=1:H1=0:U=U-10:GOTO 120
90 IF PEEK(J)=251THEN V1=0:H1=-1:U=U-10:GOTO120
100 IF PEEK(J)=247THEN V1=0:H1=1:U=U-10:GOTO120
120 V=V+V1:H=H+H1:IFV<1 THEN P=P+1
125 IFH<1 THEN P=P+1
130 IF V<0 OR V>24 OR H<0 OR H>39 THEN GOTO 150
140 GOTO 30
150 FORM=1TO24
160 PRINT"BANG BANG BANG BANG BANG BANG BANG BANG"
170 NEXTM
180 FORX=1TO1000:NEXTX
190 PRINT"[147]":PRINT:PRINT"YOU HAVE "P" POINTS"
200 PRINT:PRINT"PLAY AGAIN(Y/N)?"
210 GETA$:IFA$=""THEN210
220 IFA$="N"THEN NEW
222 IFA$="Y"THEN GOTO230
224 IFA$<>"Y"THEN GOTO 226
226 IF A$<>"N" THEN GOTO 228
228 IF A$<>"Y" THEN GOTO 190
230 PRINT"[147]":PRINT"          WRITTEN BY MR.JOKER"
235 PRINT:PRINT"                     RUNNING MAN"
240 FORR=1TO1000:NEXTR
250 GOTO 1